home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpP_1015_ScrollBar < prev    next >
Encoding:
Text File  |  1992-04-08  |  1.0 KB  |  50 lines
  1. %case window field%
  2.     %if not mainScroll%
  3.         %HandleName%:%        %ControlHandle;
  4.         %fieldName%Value:%    %integer;
  5.     %end if%
  6. %case create%
  7.     %if not mainScroll%
  8.         %HandleName% := GetNewControl (%cntlID%, newWindow);    
  9.         %Enable?%
  10.     %end if%
  11. %case activate%
  12.     %if not mainScroll%
  13.         EnableControl (%HandleName%, activate);
  14.     %end if%
  15. %case track%
  16.     %if not mainScroll%
  17.         if whichControl = %HandleName% then begin
  18.             TrackScroll (%HandleName%, whichPart, where, nil);
  19.         end;
  20.     %end if%
  21. %case itemNr%
  22.     %DefineItem%
  23. %case dialog field%
  24.     %fieldname%:%        %integer;
  25.     %Enable?%
  26.     %haveField%
  27. %case init field%
  28.     %fieldname% := 1;
  29.     %Enable?%
  30. %case auxiliary%
  31.     %needsFilter%
  32.     {----------}
  33.     Procedure %Itemname%Action%    %(newValue:    integer;
  34.                                  oldValue:    integer);
  35.     Begin
  36.     End; {%Itemname%Action}
  37.     
  38. %case filter%
  39.     if not filtered then begin
  40.         filtered := FilterScroll (event, %itemname%, @%Itemname%Action, itemHit);
  41.     end;
  42. %case set%
  43.     SetScrollItem (%Itemname%, %Fieldname%, 1, 100, 10);
  44. %case enable%
  45.     %Enable?%
  46. %case hit%
  47.     %itemname%: begin
  48.             DoScrollItem (itemNr, %fieldname%);
  49.         end;
  50.